; For comments, bugs (yes, I know there's still a lot of them)
; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se
;Ask where to place the Wzonka-Lad directory
(message "\nWelcome to Wzonka-Lad Installer!\n-----------------------\n\nThis program will install\n Wzonka-Lad 0.83\n on your Amiga\n\n (c) Ville Helin 1996-1997\nvhelin@cc.hut.fi\n\n")
(welcome)
(complete 0)
(set @default-dest
(askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
(help @askdir-help)
(default "Ram:")
(newpath)
)
)
;Create Wzonka-Lad directory
(complete 7)
(set target
(tackon @default-dest (cat "Wzonka-Lad")))
(makedir target
(prompt "Creating directory:\n\""target"\"")
(help @makedir-help)
)
(copyfiles
(dest @default-dest)
(source "icons/Wzonka-Lad.info")
(files))
(set @default-dest (target))
;Install the executables
(complete 14)
(copyfiles
(prompt "Where would you like me to put the executables?")
(help @copyfiles-help)
(source "Wzonka-Lad FULL")
(dest @default-dest)
(files)
(infos)
(confirm)
)
(copyfiles
(dest @default-dest)
(source "Wzonka-Lad FAST")
(files)
(infos)
)
(copyfiles
(dest @default-dest)
(source "Wzonka-Lad.FULL")
(files)
(infos)
)
(copyfiles
(dest @default-dest)
(source "Wzonka-Lad.FAST")
(files)
(infos)
)
(set @default-dest (target))
;Install the documents
(complete 21)
(copyfiles
(prompt "Would you like to install the documents?")
(help @copyfiles-help)
(source "Wzonka-Lad Guide")
(dest @default-dest)
(files)
(infos)
(confirm)
)
;Install controlpad.library
(complete 35)
(set @default-dest "libs:")
(copylib
(prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
(help @copylib-help)
(source "libs/controlpad.library")
(dest @default-dest)
(confirm)
)
;Install the fonts
(complete 42)
(set @default-dest "FONTS:")
(copyfiles
(prompt "And the fonts...\nWhere do I put them?")
(help @copyfiles-help)
(source "fonts/")
(dest @default-dest)
(all)
(confirm)
)
;Install the sample cartridge(s)
(complete 49)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "Where would you like to store your cartridges?\n(A drawer called \"cartridges\" will be made!)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest
(tackon @default-dest (cat "cartridges")))
(makedir @default-dest
(prompt "Creating directory...")
(help @makedir-help)
)
(copyfiles
(prompt "Install the sample cartridge to:\n")
(help @copyfiles-help)
(source "cartridges")
(dest @default-dest)
(confirm)
(all)
)
;Install the sample prefs
(complete 56)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest
(tackon @default-dest (cat "prefs")))
(makedir @default-dest
(prompt "Creating directory...")
(help @makedir-help)
)
(copyfiles
(prompt "Install the sample prefs-file to:\n")
(help @copyfiles-help)
(source "prefs")
(dest @default-dest)
(confirm)
(all)
)
;Install the sample vgb colour files
(complete 63)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
(prompt "Install the VGB (tm) example colour files to:\n")
(help @copyfiles-help)
(source "vgb_colour_schemes")
(dest @default-dest)
(confirm)
(all)
)
;Install the extra Icons
(complete 70)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest
(tackon @default-dest (cat "icons")))
(makedir @default-dest
(prompt "Creating directory...")
(help @makedir-help)
)
(copyfiles
(prompt "Install the extra icons to:\n")
(help @copyfiles-help)
(source "icons")
(dest @default-dest)
(confirm)
(all)
)
;Install the tools directory
(complete 77)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest
(tackon @default-dest (cat "tools")))
(makedir @default-dest
(prompt "Creating directory...")
(help @makedir-help)
)
(copyfiles
(prompt "Install the extra tools to:\n")
(help @copyfiles-help)
(source "tools")
(dest @default-dest)
(confirm)
(all)
)
;Install the gbs directory and an example gbs file
(complete 84)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest
(tackon @default-dest (cat "gbs")))
(makedir @default-dest
(prompt "Creating directory...")
(help @makedir-help)
)
(copyfiles
(prompt "Install an gbs example file to:\n")
(help @copyfiles-help)
(source "gbs")
(dest @default-dest)
(confirm)
(all)
)
;Install the favourites directory and the favourite list
(complete 91)
(set @default-dest (target))
(set @default-dest
(askdir (prompt "And the favourites directory?\n(A drawer called \"favourites\" will be made!)")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest
(tackon @default-dest (cat "favourites")))
(makedir @default-dest
(prompt "Creating directory...")
(help @makedir-help)
)
(copyfiles
(prompt "Install an favourite.list example to:\n")
(help @copyfiles-help)
(source "favourites")
(dest @default-dest)
(confirm)
(all)
)
;Write out some copyright stuff
(complete 100)
(set @default-dest (target))
(message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1997\nvhelin@cc.hut.fi\n\n For comments about the installer mail to:\nLennart Johannesson\n95lenjo@ostrabo.uddevalla.se")
